<?php

/**
 * @package dompdf
 * @link    http://www.dompdf.com/
 * @author  Benj Carson <benjcarson@digitaljunkies.ca>
 * @author  Helmut Tischer <htischer@weihenstephan.org>
 * @author  Fabien M�nager <fabien.menager@gmail.com>
 * @license http://www.gnu.org/copyleft/lesser.html GNU Lesser General Public License
 * @version $Id: functions.inc.php 448 2011-11-13 13:00:03Z fabien.menager $
 */
if (!defined('PHP_VERSION_ID')) {
    $version = explode('.', PHP_VERSION);
    define('PHP_VERSION_ID', ($version[0] * 10000 + $version[1] * 100 + $version[2]));
}

function def($name, $value = true) {
    if (!defined($name)) {
        define($name, $value);
    }
}

if (!function_exists("pre_r")) {

    /**
     * print_r wrapper for html/cli output
     *
     * Wraps print_r() output in < pre > tags if the current sapi is not
     * 'cli'.  Returns the output string instead of displaying it if $return is
     * true.
     *
     * @param mixed $mixed variable or expression to display
     * @param bool $return
     *
     */
    function pre_r($mixed, $return = false) {
        if ($return)
            return "<pre>" . print_r($mixed, true) . "</pre>";

        if (php_sapi_name() !== "cli")
            echo ("<pre>");
        print_r($mixed);

        if (php_sapi_name() !== "cli")
            echo("</pre>");
        else
            echo ("\n");
        flush();
    }

}

if (!function_exists("pre_var_dump")) {

    /**
     * var_dump wrapper for html/cli output
     *
     * Wraps var_dump() output in < pre > tags if the current sapi is not
     * 'cli'.
     *
     * @param mixed $mixed variable or expression to display.
     */
    function pre_var_dump($mixed) {
        if (php_sapi_name() !== "cli")
            echo("<pre>");

        var_dump($mixed);

        if (php_sapi_name() !== "cli")
            echo("</pre>");
    }

}

if (!function_exists("d")) {

    /**
     * generic debug function
     *
     * Takes everything and does its best to give a good debug output
     *
     * @param mixed $mixed variable or expression to display.
     */
    function d($mixed) {
        if (php_sapi_name() !== "cli")
            echo("<pre>");

        // line
        if ($mixed instanceof Line_Box) {
            echo $mixed;
        }

        // other
        else {
            var_export($mixed);
        }

        if (php_sapi_name() !== "cli")
            echo("</pre>");
    }

}

/**
 * builds a full url given a protocol, hostname, base path and url
 *
 * @param string $protocol
 * @param string $host
 * @param string $base_path
 * @param string $url
 * @return string
 *
 * Initially the trailing slash of $base_path was optional, and conditionally appended.
 * However on dynamically created sites, where the page is given as url parameter,
 * the base path might not end with an url.
 * Therefore do not append a slash, and **require** the $base_url to ending in a slash
 * when needed.
 * Vice versa, on using the local file system path of a file, make sure that the slash
 * is appended (o.k. also for Windows)
 */
function build_url($protocol, $host, $base_path, $url) {
    if (strlen($url) == 0) {
        //return $protocol . $host . rtrim($base_path, "/\\") . "/";
        return $protocol . $host . $base_path;
    }

    // Is the url already fully qualified or a Data URI?
    if (mb_strpos($url, "://") !== false || mb_strpos($url, "data:") === 0)
        return $url;

    $ret = $protocol;

    if (!in_array(mb_strtolower($protocol), array("http://", "https://", "ftp://", "ftps://"))) {
        //On Windows local file, an abs path can begin also with a '\' or a drive letter and colon
        //drive: followed by a relative path would be a drive specific default folder.
        //not known in php app code, treat as abs path
        //($url[1] !== ':' || ($url[2]!=='\\' && $url[2]!=='/'))
        if ($url[0] !== '/' && (strtoupper(substr(PHP_OS, 0, 3)) !== 'WIN' || ($url[0] !== '\\' && $url[1] !== ':'))) {
            // For rel path and local acess we ignore the host, and run the path through realpath()
            $ret .= realpath($base_path) . '/';
        }
        $ret .= $url;
        $ret = preg_replace("/\?(.*)$/", "", $ret);
        return $ret;
    }

    //remote urls with backslash in html/css are not really correct, but lets be genereous
    if ($url[0] === '/' || $url[0] === '\\') {
        // Absolute path
        $ret .= $host . $url;
    } else {
        // Relative path
        //$base_path = $base_path !== "" ? rtrim($base_path, "/\\") . "/" : "";
        $ret .= $host . $base_path . $url;
    }

    return $ret;
}

/**
 * parse a full url or pathname and return an array(protocol, host, path,
 * file + query + fragment)
 *
 * @param string $url
 * @return array
 */
function explode_url($url) {
    $protocol = "";
    $host = "";
    $path = "";
    $file = "";

    $arr = parse_url($url);

    if (isset($arr["scheme"]) &&
            $arr["scheme"] !== "file" &&
            strlen($arr["scheme"]) > 1) { // Exclude windows drive letters...
        $protocol = $arr["scheme"] . "://";

        if (isset($arr["user"])) {
            $host .= $arr["user"];

            if (isset($arr["pass"]))
                $host .= "@" . $arr["pass"];

            $host .= ":";
        }

        if (isset($arr["host"]))
            $host .= $arr["host"];

        if (isset($arr["port"]))
            $host .= ":" . $arr["port"];

        if (isset($arr["path"]) && $arr["path"] !== "") {
            // Do we have a trailing slash?
            if ($arr["path"][mb_strlen($arr["path"]) - 1] === "/") {
                $path = $arr["path"];
                $file = "";
            } else {
                $path = rtrim(dirname($arr["path"]), '/\\') . "/";
                $file = basename($arr["path"]);
            }
        }

        if (isset($arr["query"]))
            $file .= "?" . $arr["query"];

        if (isset($arr["fragment"]))
            $file .= "#" . $arr["fragment"];
    } else {

        $i = mb_strpos($url, "file://");
        if ($i !== false)
            $url = mb_substr($url, $i + 7);

        $protocol = ""; // "file://"; ? why doesn't this work... It's because of
        // network filenames like //COMPU/SHARENAME

        $host = ""; // localhost, really
        $file = basename($url);

        $path = dirname($url);

        // Check that the path exists
        if ($path !== false) {
            $path .= '/';
        } else {
            // generate a url to access the file if no real path found.
            $protocol = isset($_SERVER['HTTPS']) && $_SERVER['HTTPS'] === 'on' ? 'https://' : 'http://';

            $host = isset($_SERVER["HTTP_HOST"]) ? $_SERVER["HTTP_HOST"] : php_uname("n");

            if (substr($arr["path"], 0, 1) === '/') {
                $path = dirname($arr["path"]);
            } else {
                $path = '/' . rtrim(dirname($_SERVER["SCRIPT_NAME"]), '/') . '/' . $arr["path"];
            }
        }
    }

    $ret = array($protocol, $host, $path, $file,
        "protocol" => $protocol,
        "host" => $host,
        "path" => $path,
        "file" => $file);
    return $ret;
}

/**
 * converts decimal numbers to roman numerals
 *
 * @param int $num
 * @return string
 */
function dec2roman($num) {

    static $ones = array("", "i", "ii", "iii", "iv", "v",
        "vi", "vii", "viii", "ix");
    static $tens = array("", "x", "xx", "xxx", "xl", "l",
        "lx", "lxx", "lxxx", "xc");
    static $hund = array("", "c", "cc", "ccc", "cd", "d",
        "dc", "dcc", "dccc", "cm");
    static $thou = array("", "m", "mm", "mmm");

    if (!is_numeric($num))
        throw new DOMPDF_Exception("dec2roman() requires a numeric argument.");

    if ($num > 4000 || $num < 0)
        return "(out of range)";

    $num = strrev((string) $num);

    $ret = "";
    switch (mb_strlen($num)) {
        case 4: $ret .= $thou[$num[3]];
        case 3: $ret .= $hund[$num[2]];
        case 2: $ret .= $tens[$num[1]];
        case 1: $ret .= $ones[$num[0]];
        default: break;
    }
    return $ret;
}

/**
 * Determines whether $value is a percentage or not
 *
 * @param float $value
 * @return bool
 */
function is_percent($value) {
    return false !== mb_strpos($value, "%");
}

/**
 * Parses a data URI scheme
 * http://en.wikipedia.org/wiki/Data_URI_scheme
 * @param string $data_uri The data URI to parse
 * @return array The result with charset, mime type and decoded data
 */
function parse_data_uri($data_uri) {
    if (!preg_match('/^data:(?P<mime>[a-z0-9\/+-.]+)(;charset=(?P<charset>[a-z0-9-])+)?(?P<base64>;base64)?\,(?P<data>.*)?/i', $data_uri, $match)) {
        return false;
    }

    $match['data'] = rawurldecode($match['data']);
    $result = array(
        'charset' => $match['charset'] ? $match['charset'] : 'US-ASCII',
        'mime' => $match['mime'] ? $match['mime'] : 'text/plain',
        'data' => $match['base64'] ? base64_decode($match['data']) : $match['data'],
    );

    return $result;
}

/**
 * mb_string compatibility
 */
if (!function_exists("mb_strlen")) {

    define('MB_OVERLOAD_MAIL', 1);
    define('MB_OVERLOAD_STRING', 2);
    define('MB_OVERLOAD_REGEX', 4);
    define('MB_CASE_UPPER', 0);
    define('MB_CASE_LOWER', 1);
    define('MB_CASE_TITLE', 2);

    function mb_convert_encoding($data, $to_encoding, $from_encoding = 'UTF-8') {
        if (str_replace('-', '', strtolower($to_encoding)) === 'utf8') {
            return utf8_encode($data);
        } else {
            return utf8_decode($data);
        }
    }

    function mb_detect_encoding($data, $encoding_list = array('iso-8859-1'), $strict = false) {
        return 'iso-8859-1';
    }

    function mb_detect_order($encoding_list = array('iso-8859-1')) {
        return 'iso-8859-1';
    }

    function mb_internal_encoding($encoding = null) {
        if (isset($encoding)) {
            return true;
        } else {
            return 'iso-8859-1';
        }
    }

    function mb_strlen($str, $encoding = 'iso-8859-1') {
        switch (str_replace('-', '', strtolower($encoding))) {
            case "utf8": return strlen(utf8_encode($str));
            case "8bit": return strlen($str);
            default: return strlen(utf8_decode($str));
        }
    }

    function mb_strpos($haystack, $needle, $offset = 0) {
        return strpos($haystack, $needle, $offset);
    }

    function mb_strrpos($haystack, $needle, $offset = 0) {
        return strrpos($haystack, $needle, $offset);
    }

    function mb_strtolower($str) {
        return strtolower($str);
    }

    function mb_strtoupper($str) {
        return strtoupper($str);
    }

    function mb_substr($string, $start, $length = null, $encoding = 'iso-8859-1') {
        if (is_null($length))
            return substr($string, $start);
        else
            return substr($string, $start, $length);
    }

    function mb_substr_count($haystack, $needle, $encoding = 'iso-8859-1') {
        return substr_count($haystack, $needle);
    }

    function mb_encode_numericentity($str, $convmap, $encoding) {
        return htmlspecialchars($str);
    }

    function mb_convert_case($str, $mode = MB_CASE_UPPER, $encoding = array()) {
        switch ($mode) {
            case MB_CASE_UPPER: return mb_strtoupper($str);
            case MB_CASE_LOWER: return mb_strtolower($str);
            case MB_CASE_TITLE: return ucwords(mb_strtolower($str));
            default: return $str;
        }
    }

    function mb_list_encodings() {
        return array(
            "ISO-8859-1",
            "UTF-8",
            "8bit",
        );
    }

}

/**
 * Decoder for RLE8 compression in windows bitmaps
 * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_6x0u.asp
 */
function rle8_decode($str, $width) {
    $lineWidth = $width + (3 - ($width - 1) % 4);
    $out = '';
    $cnt = strlen($str);

    for ($i = 0; $i < $cnt; $i++) {
        $o = ord($str[$i]);
        switch ($o) {
            case 0: # ESCAPE
                $i++;
                switch (ord($str[$i])) {
                    case 0: # NEW LINE
                        $padCnt = $lineWidth - strlen($out) % $lineWidth;
                        if ($padCnt < $lineWidth)
                            $out .= str_repeat(chr(0), $padCnt);# pad line
                        break;
                    case 1: # END OF FILE
                        $padCnt = $lineWidth - strlen($out) % $lineWidth;
                        if ($padCnt < $lineWidth)
                            $out .= str_repeat(chr(0), $padCnt);# pad line
                        break 3;
                    case 2: # DELTA
                        $i += 2;
                        break;
                    default: # ABSOLUTE MODE
                        $num = ord($str[$i]);
                        for ($j = 0; $j < $num; $j++)
                            $out .= $str[++$i];
                        if ($num % 2)
                            $i++;
                }
                break;
            default:
                $out .= str_repeat($str[++$i], $o);
        }
    }
    return $out;
}

/**
 * Decoder for RLE4 compression in windows bitmaps
 * see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_6x0u.asp
 */
function rle4_decode($str, $width) {
    $w = floor($width / 2) + ($width % 2);
    $lineWidth = $w + (3 - ( ($width - 1) / 2) % 4);
    $pixels = array();
    $cnt = strlen($str);

    for ($i = 0; $i < $cnt; $i++) {
        $o = ord($str[$i]);
        switch ($o) {
            case 0: # ESCAPE
                $i++;
                switch (ord($str[$i])) {
                    case 0: # NEW LINE
                        while (count($pixels) % $lineWidth != 0)
                            $pixels[] = 0;
                        break;
                    case 1: # END OF FILE
                        while (count($pixels) % $lineWidth != 0)
                            $pixels[] = 0;
                        break 3;
                    case 2: # DELTA
                        $i += 2;
                        break;
                    default: # ABSOLUTE MODE
                        $num = ord($str[$i]);
                        for ($j = 0; $j < $num; $j++) {
                            if ($j % 2 == 0) {
                                $c = ord($str[++$i]);
                                $pixels[] = ($c & 240) >> 4;
                            } else
                                $pixels[] = $c & 15;
                        }
                        if ($num % 2 == 0)
                            $i++;
                }
                break;
            default:
                $c = ord($str[++$i]);
                for ($j = 0; $j < $o; $j++)
                    $pixels[] = ($j % 2 == 0 ? ($c & 240) >> 4 : $c & 15);
        }
    }

    $out = '';
    if (count($pixels) % 2)
        $pixels[] = 0;
    $cnt = count($pixels) / 2;

    for ($i = 0; $i < $cnt; $i++)
        $out .= chr(16 * $pixels[2 * $i] + $pixels[2 * $i + 1]);

    return $out;
}

if (!function_exists("imagecreatefrombmp")) {

    /**
     * Credit goes to mgutt 
     * http://www.programmierer-forum.de/function-imagecreatefrombmp-welche-variante-laeuft-t143137.htm
     * Modified by Fabien Menager to support RGB555 BMP format
     */
    function imagecreatefrombmp($filename) {
        try {
            // version 1.00
            if (!($fh = fopen($filename, 'rb'))) {
                trigger_error('imagecreatefrombmp: Can not open ' . $filename, E_USER_WARNING);
                return false;
            }

            $bytes_read = 0;

            // read file header
            $meta = unpack('vtype/Vfilesize/Vreserved/Voffset', fread($fh, 14));

            // check for bitmap
            if ($meta['type'] != 19778) {
                trigger_error('imagecreatefrombmp: ' . $filename . ' is not a bitmap!', E_USER_WARNING);
                return false;
            }

            // read image header
            $meta += unpack('Vheadersize/Vwidth/Vheight/vplanes/vbits/Vcompression/Vimagesize/Vxres/Vyres/Vcolors/Vimportant', fread($fh, 40));
            $bytes_read += 40;

            // read additional bitfield header
            if ($meta['compression'] == 3) {
                $meta += unpack('VrMask/VgMask/VbMask', fread($fh, 12));
                $bytes_read += 12;
            }

            // set bytes and padding
            $meta['bytes'] = $meta['bits'] / 8;
            $meta['decal'] = 4 - (4 * (($meta['width'] * $meta['bytes'] / 4) - floor($meta['width'] * $meta['bytes'] / 4)));
            if ($meta['decal'] == 4) {
                $meta['decal'] = 0;
            }

            // obtain imagesize
            if ($meta['imagesize'] < 1) {
                $meta['imagesize'] = $meta['filesize'] - $meta['offset'];
                // in rare cases filesize is equal to offset so we need to read physical size
                if ($meta['imagesize'] < 1) {
                    $meta['imagesize'] = @filesize($filename) - $meta['offset'];
                    if ($meta['imagesize'] < 1) {
                        trigger_error('imagecreatefrombmp: Can not obtain filesize of ' . $filename . '!', E_USER_WARNING);
                        return false;
                    }
                }
            }

            // calculate colors
            $meta['colors'] = !$meta['colors'] ? pow(2, $meta['bits']) : $meta['colors'];

            // read color palette
            $palette = array();
            if ($meta['bits'] < 16) {
                $palette = unpack('l' . $meta['colors'], fread($fh, $meta['colors'] * 4));
                // in rare cases the color value is signed
                if ($palette[1] < 0) {
                    foreach ($palette as $i => $color) {
                        $palette[$i] = $color + 16777216;
                    }
                }
            }

            // ignore extra bitmap headers
            if ($meta['headersize'] > $bytes_read) {
                fread($fh, $meta['headersize'] - $bytes_read);
            }

            // create gd image
            $im = imagecreatetruecolor($meta['width'], $meta['height']);
            $data = fread($fh, $meta['imagesize']);

            // uncompress data
            switch ($meta['compression']) {
                case 1: $data = rle8_decode($data, $meta['width']);
                    break;
                case 2: $data = rle4_decode($data, $meta['width']);
                    break;
            }

            $p = 0;
            $vide = chr(0);
            $y = $meta['height'] - 1;
            $error = 'imagecreatefrombmp: ' . $filename . ' has not enough data!';

            // loop through the image data beginning with the lower left corner
            while ($y >= 0) {
                $x = 0;
                while ($x < $meta['width']) {
                    switch ($meta['bits']) {
                        case 32:
                        case 24:
                            if (!($part = substr($data, $p, 3 /* $meta['bytes'] */))) {
                                trigger_error($error, E_USER_WARNING);
                                return $im;
                            }
                            $color = unpack('V', $part . $vide);
                            break;
                        case 16:
                            if (!($part = substr($data, $p, 2 /* $meta['bytes'] */))) {
                                trigger_error($error, E_USER_WARNING);
                                return $im;
                            }
                            $color = unpack('v', $part);

                            if (empty($meta['rMask']) || $meta['rMask'] != 0xf800)
                                $color[1] = (($color[1] & 0x7c00) >> 7) * 65536 + (($color[1] & 0x03e0) >> 2) * 256 + (($color[1] & 0x001f) << 3); // 555
                            else
                                $color[1] = (($color[1] & 0xf800) >> 8) * 65536 + (($color[1] & 0x07e0) >> 3) * 256 + (($color[1] & 0x001f) << 3); // 565
                            break;
                        case 8:
                            $color = unpack('n', $vide . substr($data, $p, 1));
                            $color[1] = $palette[$color[1] + 1];
                            break;
                        case 4:
                            $color = unpack('n', $vide . substr($data, floor($p), 1));
                            $color[1] = ($p * 2) % 2 == 0 ? $color[1] >> 4 : $color[1] & 0x0F;
                            $color[1] = $palette[$color[1] + 1];
                            break;
                        case 1:
                            $color = unpack('n', $vide . substr($data, floor($p), 1));
                            switch (($p * 8) % 8) {
                                case 0: $color[1] = $color[1] >> 7;
                                    break;
                                case 1: $color[1] = ($color[1] & 0x40) >> 6;
                                    break;
                                case 2: $color[1] = ($color[1] & 0x20) >> 5;
                                    break;
                                case 3: $color[1] = ($color[1] & 0x10) >> 4;
                                    break;
                                case 4: $color[1] = ($color[1] & 0x8 ) >> 3;
                                    break;
                                case 5: $color[1] = ($color[1] & 0x4 ) >> 2;
                                    break;
                                case 6: $color[1] = ($color[1] & 0x2 ) >> 1;
                                    break;
                                case 7: $color[1] = ($color[1] & 0x1 );
                                    break;
                            }
                            $color[1] = $palette[$color[1] + 1];
                            break;
                        default:
                            trigger_error('imagecreatefrombmp: ' . $filename . ' has ' . $meta['bits'] . ' bits and this is not supported!', E_USER_WARNING);
                            return false;
                    }
                    imagesetpixel($im, $x, $y, $color[1]);
                    $x++;
                    $p += $meta['bytes'];
                }
                $y--;
                $p += $meta['decal'];
            }
            fclose($fh);
            return $im;
        } catch (Exception $e) {
            var_dump($e);
        }
    }

}

/**
 * getimagesize doesn't give a good size for 32bit BMP image v5
 * 
 * @param string $filename
 * @return array The same format as getimagesize($filename)
 */
function dompdf_getimagesize($filename) {
    static $cache = array();

    if (isset($cache[$filename])) {
        return $cache[$filename];
    }

    list($width, $height, $type) = getimagesize($filename);

    if ($width == null || $height == null) {
        $data = file_get_contents($filename, null, null, 0, 26);

        if (substr($data, 0, 2) === "BM") {
            $meta = unpack('vtype/Vfilesize/Vreserved/Voffset/Vheadersize/Vwidth/Vheight', $data);
            $width = (int) $meta['width'];
            $height = (int) $meta['height'];
            $type = IMAGETYPE_BMP;
        }
    }

    return $cache[$filename] = array($width, $height, $type);
}

/**
 * Converts a CMYK color to RGB
 * 
 * @param int $c
 * @param int $m
 * @param int $y
 * @param int $k
 * @return object
 */
function cmyk_to_rgb($c, $m = null, $y = null, $k = null) {
    if (is_array($c)) {
        list($c, $m, $y, $k) = $c;
    }

    $c *= 255;
    $m *= 255;
    $y *= 255;
    $k *= 255;

    $r = (1 - round(2.55 * ($c + $k)));
    $g = (1 - round(2.55 * ($m + $k)));
    $b = (1 - round(2.55 * ($y + $k)));

    if ($r < 0)
        $r = 0;
    if ($g < 0)
        $g = 0;
    if ($b < 0)
        $b = 0;

    return array(
        $r, $g, $b,
        "r" => $r, "g" => $g, "b" => $b
    );
}

function unichr($c) {
    if ($c <= 0x7F) {
        return chr($c);
    } else if ($c <= 0x7FF) {
        return chr(0xC0 | $c >> 6) . chr(0x80 | $c & 0x3F);
    } else if ($c <= 0xFFFF) {
        return chr(0xE0 | $c >> 12) . chr(0x80 | $c >> 6 & 0x3F)
                . chr(0x80 | $c & 0x3F);
    } else if ($c <= 0x10FFFF) {
        return chr(0xF0 | $c >> 18) . chr(0x80 | $c >> 12 & 0x3F)
                . chr(0x80 | $c >> 6 & 0x3F)
                . chr(0x80 | $c & 0x3F);
    }
    return false;
}

if (!function_exists("date_default_timezone_get")) {

    function date_default_timezone_get() {
        return "";
    }

    function date_default_timezone_set($timezone_identifier) {
        return true;
    }

}

/**
 * Stores warnings in an array for display later
 *
 * This function allows warnings generated by the DomDocument parser
 * and CSS loader ({@link Stylesheet}) to be captured and displayed
 * later.  Without this function, errors are displayed immediately and
 * PDF streaming is impossible.
 *
 * @see http://www.php.net/manual/en/function.set-error_handler.php
 *
 * @param int $errno
 * @param string $errstr
 * @param string $errfile
 * @param string $errline
 */
function record_warnings($errno, $errstr, $errfile, $errline) {

    if (!($errno & (E_WARNING | E_NOTICE | E_USER_NOTICE | E_USER_WARNING ))) // Not a warning or notice
        throw new DOMPDF_Exception($errstr . " $errno");

    global $_dompdf_warnings;
    global $_dompdf_show_warnings;

    if ($_dompdf_show_warnings)
        echo $errstr . "\n";

    $_dompdf_warnings[] = $errstr;
}

/**
 * Print a useful backtrace
 */
function bt() {
    if (php_sapi_name() !== "cli")
        echo("<pre>");

    $bt = debug_backtrace();

    array_shift($bt); // remove actual bt() call
    echo "\n";

    $i = 0;
    foreach ($bt as $call) {
        $file = basename($call["file"]) . " (" . $call["line"] . ")";
        if (isset($call["class"])) {
            $func = $call["class"] . "->" . $call["function"] . "()";
        } else {
            $func = $call["function"] . "()";
        }

        echo "#" . str_pad($i, 2, " ", STR_PAD_RIGHT) . ": " . str_pad($file . ":", 42) . " $func\n";
        $i++;
    }
    echo "\n";

    if (php_sapi_name() !== "cli")
        echo("</pre>");
}

/**
 * Print debug messages
 *
 * @param string $type  The type of debug messages to print
 */
function dompdf_debug($type, $msg) {
    global $_DOMPDF_DEBUG_TYPES, $_dompdf_show_warnings, $_dompdf_debug;
    if (isset($_DOMPDF_DEBUG_TYPES[$type]) && ($_dompdf_show_warnings || $_dompdf_debug)) {
        $arr = debug_backtrace();

        echo basename($arr[0]["file"]) . " (" . $arr[0]["line"] . "): " . $arr[1]["function"] . ": ";
        pre_r($msg);
    }
}

if (!function_exists("print_memusage")) {

    /**
     * Dump memory usage
     */
    function print_memusage() {
        global $memusage;
        echo ("Memory Usage\n");
        $prev = 0;
        $initial = reset($memusage);
        echo (str_pad("Initial:", 40) . $initial . "\n\n");

        foreach ($memusage as $key => $mem) {
            $mem -= $initial;
            echo (str_pad("$key:", 40));
            echo (str_pad("$mem", 12) . "(diff: " . ($mem - $prev) . ")\n");
            $prev = $mem;
        }

        echo ("\n" . str_pad("Total:", 40) . memory_get_usage()) . "\n";
    }

}

if (!function_exists("enable_mem_profile")) {

    /**
     * Initialize memory profiling code
     */
    function enable_mem_profile() {
        global $memusage;
        $memusage = array("Startup" => memory_get_usage());
        register_shutdown_function("print_memusage");
    }

}

if (!function_exists("mark_memusage")) {

    /**
     * Record the current memory usage
     *
     * @param string $location a meaningful location
     */
    function mark_memusage($location) {
        global $memusage;
        if (isset($memusage))
            $memusage[$location] = memory_get_usage();
    }

}

if (!function_exists('sys_get_temp_dir')) {

    /**
     * Find the current system temporary directory
     *
     * @link http://us.php.net/manual/en/function.sys-get-temp-dir.php#85261
     */
    function sys_get_temp_dir() {
        if (!empty($_ENV['TMP'])) {
            return realpath($_ENV['TMP']);
        }
        if (!empty($_ENV['TMPDIR'])) {
            return realpath($_ENV['TMPDIR']);
        }
        if (!empty($_ENV['TEMP'])) {
            return realpath($_ENV['TEMP']);
        }
        $tempfile = tempnam(uniqid(rand(), TRUE), '');
        if (file_exists($tempfile)) {
            unlink($tempfile);
            return realpath(dirname($tempfile));
        }
    }

}

if (function_exists("memory_get_peak_usage")) {

    function DOMPDF_memory_usage() {
        return memory_get_peak_usage(true);
    }

} else if (function_exists("memory_get_usage")) {

    function DOMPDF_memory_usage() {
        return memory_get_usage(true);
    }

} else {

    function DOMPDF_memory_usage() {
        return "N/A";
    }

}

if (function_exists("curl_init")) {

    function DOMPDF_fetch_url($url, &$headers = null) {
        $ch = curl_init($url);
        curl_setopt($ch, CURLOPT_TIMEOUT, 10);
        curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 10);
        curl_setopt($ch, CURLOPT_RETURNTRANSFER, TRUE);
        curl_setopt($ch, CURLOPT_HEADER, TRUE);

        $data = curl_exec($ch);
        $raw_headers = substr($data, 0, curl_getinfo($ch, CURLINFO_HEADER_SIZE));
        $headers = preg_split("/[\n\r]+/", trim($raw_headers));
        $data = substr($data, curl_getinfo($ch, CURLINFO_HEADER_SIZE));
        curl_close($ch);

        return $data;
    }

} else {

    function DOMPDF_fetch_url($url, &$headers = null) {
        $data = file_get_contents($url);
        $headers = $http_response_header;

        return $data;
    }

}

/**
 * Affect null to the unused objects
 * @param mixed $object
 */
if (PHP_VERSION_ID < 50300) {

    function clear_object(&$object) {
        if (is_object($object)) {
            foreach ($object as &$value) {
                clear_object($value);
            }
        }

        $object = null;
        unset($object);
    }

} else {

    function clear_object(&$object) {
        // void
    }

}
